home *** CD-ROM | disk | FTP | other *** search
/ Scene Storm / Scene Storm - Volume 1.iso / coding / asm / utils / gadgettest1 / gadget1.hex < prev    next >
Encoding:
Text File  |  1980-01-04  |  2.6 KB  |  66 lines
  1.   file$="gadget1" : 'v2.11
  2.   OPEN file$ FOR OUTPUT AS #1
  3.   lin=0 : a$=""
  4. Loop:
  5.   lin=lin+1
  6.   READ x$ : IF x$="**" THEN Endeth
  7. Beyond:
  8.   i=INSTR(x$," ")
  9.   IF i>0 THEN
  10.     x$=LEFT$(x$,i-1)+MID$(x$,i+1)
  11.     GOTO Beyond
  12.   END IF
  13.   x$=UCASE$(x$)
  14.   cs$=RIGHT$(x$,2) : x$=LEFT$(x$,LEN(x$)-2)
  15.   sum=0
  16.   FOR i=1 TO LEN(x$)
  17.     sum=sum+(ASC(MID$(x$,i,1)) XOR i)
  18.   NEXT i
  19.   IF (sum AND 255)<>VAL("&H"+cs$) THEN
  20.     PRINT "Checksum error in line";lin
  21.     GOTO Endeth
  22.   END IF
  23.   x$=a$+x$ : a$=""
  24.   FOR i=1 TO LEN(x$) STEP 2
  25.     IF MID$(x$,i,1) = "G" THEN
  26.       IF MID$(x$,i+2)="" THEN a$=MID$(x$,i) : GOTO Loop
  27.       y$=STRING$(ASC(MID$(x$,i+1,1))-63,VAL("&H"+MID$(x$,i+2,2)))
  28.       i=i+2
  29.     ELSE
  30.       y$=CHR$(VAL("&H"+MID$(x$,i,2)))
  31.     END IF
  32.     PRINT #1,y$;
  33.   NEXT i
  34.   GOTO Loop
  35.  
  36. Endeth:
  37.   CLOSE #1
  38.   PRINT "Operation complete"
  39.   END
  40.  
  41. 1     DATA ga0003 f3gf00 03gf00 02gb00 53gb00 49gb00 11ga00 03e9gb 00534e 59
  42. 2     DATA 54ffe8 42acff fc42ac fff842 acfff4 426cff ec43fa 011270 002c78 58
  43. 3     DATA 00044e aefdd8 2940ff f867ga 009243 fa010d 70002c 780004 4eaefd ce
  44. 4     DATA d82940 fffc67 ga007c 41f9gc 002c6c fffc4e aeff34 2940ff f46766 d7
  45. 5     DATA 204029 680032 fff02a 680056 4a6cff ec6654 700012 2d000f 03c02c 8d
  46. 6     DATA 780004 4eaefe c2204d 2c7800 044eae fe8c4a 8067dc 224024 290014 91
  47. 7     DATA 362900 182469 001c2c 780004 4eaefe 860c82 ga0002 006608 397c00 20
  48. 8     DATA 01ffec 60cc0c 82gb00 4066c4 206a00 284e90 60bc20 2cfff4 670a20 02
  49. 9     DATA 402c6c fffc4e aeffb8 202cff f8670a 22402c 780004 4eaefe 62202c c7
  50. 10    DATA fffc67 0a2240 2c7800 044eae fe624e 5c7000 4e7522 6a00ga 225120 88
  51. 11    DATA 6cfff4 70ff24 402c6c fffc4e aefeec 4e7541 f9gb00 302268 00ga22 47
  52. 12    DATA 514211 226cff f495ca 70012c 6cfffc 4eaefe 504e75 677261 706869 10
  53. 13    DATA 63732e 6c6962 726172 790069 6e7475 697469 6f6e2e 6c6962 726172 eb
  54. 14    DATA 79gc00 03ecgb 0002gb 0001gb 0042ga 00010a ge0003 f2ga00 03eagb 87
  55. 15    DATA 004900 0a0064 012c00 3c0001 ga0002 400002 004fgb 0030ge 000108 eb
  56. 16    DATA gh0064 006401 f400c8 0001gb 00a400 0a0014 00c800 0agb00 010004 c3
  57. 17    DATA gb0080 gn005c gd00f0 gf0022 gb0020 gw00ff fefffe 010200 05gb00 b5
  58. 18    DATA 90gh00 cbgb00 cb000b gb000b gh00dc 001300 38000a gb0001 0001gb 31
  59. 19    DATA 00d0gf 00f4gk 000108 gcff01 020005 gb00e0 gh0039 gb0039 000bgb d2
  60. 20    DATA 000bgc 000102 gb0008 0001ge 00011d gc0053 696d70 6c6552 656672 5b
  61. 21    DATA 657368 2d69ga 6b756e 610050 41494e 41gc00 03ecgb 0002gf 0058gb 87
  62. 22    DATA 00ccgb 000agb 0001gb 0012gb 001agb 0030gb 0042gb 0052gb 0088gb e7
  63. 23    DATA 00b6gb 00begb 00d8ga 0001gc 0002gb 0002gb 005cgb 0060ge 0003f2 af
  64. 24    DATA ga0003 ebgb00 11ga00 03f20b
  65.       DATA **
  66.